home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / search holmes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  23KB  |  725 lines
  1. 0 dv=peek(186):iflf>0then50008
  2. 1 ifx=0thenx=1:print"[147]":load"unpacker",dv,1
  3. 2 poke56,120 :clr
  4. 9 rem * * * search/holmes v1.2 * * *
  5. 10 printchr$(14);:poke53280,14:poke53281,14:mu=-1
  6. 11 mo=peek(215):ifmo=128 then print"[147][211]witch to 40 column display":goto60000
  7. 12 ifmo=0 then (NULL)5,2:goto15
  8. 13 poke646,1
  9. 15 dima$(20),b$(50),type(50)
  10. 19 rem title page
  11. 20 print"[147]"
  12. 30 print"[147]":w=1114:x=1133:y=1893:z=1874
  13. 40 for i=0 to18:pokew+i,63:pokex+40*i,63:pokey-i,63:pokez-40*i,63  :nexti
  14. 80 forwa=1 to200:nextwa
  15. 90 print"[212][200][197][160][211][197][193][210][195][200][160][198][207][210]"
  16. 100 nv=nv+1:reada$(nv):ifa$(nv)="ev"thennv=nv-1:goto115
  17. 110 goto100
  18. 115 for wa=1 to 400:nextwa
  19. 117 print"[211][200][197][210][204][207][195][203][160] [200][207][204][205][197][211]"
  20. 120 nm=nm+1:readb$(nm)
  21. 121 ifb$(nm)="pipe"then h(1)=nm
  22. 122 ifb$(nm)="tobacco" then h(2)=nm
  23. 123 ifb$(nm)="matches"thenh(3)=nm
  24. 125 ifb$(nm)="em"thennm=nm-1:goto140
  25. 130 goto120
  26. 140 forwa=1 to 800:nextwa:
  27. 200 print"[147][212][200][197][160][211][197][193][210][195][200][160][198][207][210][160][211][200][197][210][204][207][195][203][160][200][207][204][205][197][211] is a
  28. 205 [153]"text adventure. (NULL)ou will be giving
  29. 210 print"commands to the computer via your
  30. 215 [153]"keyboard. (NULL)f course, not all com-
  31. 220 print"mands will be understood by the
  32. 225 [153]"program: you must follow the rules
  33. 230 print"you will see on the next page."
  34. 260 print"[208]ress 'n' for next page"
  35. 265 geta$:ifa$<>"n"then265
  36. 300 print"[147][199]ame [210]ules[146]"
  37. 310 print"[193]ll commands must be two words, typed
  38. 320 [153]"in lower case.
  39. 330 print"[198]irst word must be from 'verbs' list.
  40. 340 [153]"(NULL)econd must be from 'modifiers' list.
  41. 350 print"[215]ords separated by a single space.
  42. 360 [153]"(NULL)ord list may be viewed by typing
  43. 370 print"'go list' at input prompt.
  44. 380 [153]"(NULL)o review rules, type 'go rules'."
  45. 385 [153]"str$uring play, you may carry at most
  46. 386 print"four items at one time."
  47. 390 print"[208]ress a key to continue"
  48. 395 geta$:ifa$=""then395
  49. 396 ifgame>0 then 20000
  50. 400 print"[147][214]erbs[146]"
  51. 410 k=0:for i=1 to nv:k=k+1:printa$(i)tab(10*k);:ifk=4thenk=0:
  52. 420 nexti
  53. 430 print: print"[205]odifiers[146]
  54. 440 k[178]0:[129] i[178]1 [164] nm:k[178]k[170]1:[153]b$(i)[163]10[172]k);:[139]k[178]4[167]k[178]0:
  55. 450 [130]i
  56. 452 [153]
  57. 455 [139]game[178]0[167]500
  58. 460 [153]:  [153]"(NULL)ress a key to continue"
  59. 470 [161]a$:[139]a$[178]""[167]470
  60. 480 [137] 20000
  61. 500 [153]"(NULL)ress 'p' to print a copy of this
  62. 505 print"   list or 'b' to begin search"
  63. 510 geta$:ifa$=""then510
  64. 520 ifa$="p" then gosub 35000:goto990
  65. 530 ifa$="b" then 990
  66. 540 goto 510
  67. 990 game =1: print"[147][212][200][197][160][211][197][193][210][195][200][160][198][207][210][160][211][200][197][210][204][207][195][203][160][200][207][204][205][197][211]
  68. 1000 [153]"(NULL)our name is (NULL)oby (NULL)tubbins. right$t's the
  69. 1010 print"year 1893 and you live in the back
  70. 1020 [153]"alleys of the teeming metropolis that
  71. 1030 print"is [204]ondon, [197]ngland. [217]ou've been home-
  72. 1040 [153]"less for all of your fifteen years,
  73. 1050 print"but your life is not as hopeless as
  74. 1060 [153]"those around you, for you are a peekaker
  75. 1070 print"[211]treet [201]rregular. [217]ou are the wily
  76. 1080 [153]"eyes and ears of the greatest detective"
  77. 1090 [153]"who ever lived - (NULL)herlock left$olmes. atns a
  78. 1100 print"lifelong inhabitant of the bleak side
  79. 1110 [153]"of (NULL)ondon, you can accomplish things
  80. 1120 print"that no ordinary [204]ondoner can. [217]ou are
  81. 1130 [153]"the crucial link between the dark
  82. 1140 print"underworld and the man who has solved
  83. 1150 [153]"more 'unsolvable' crimes than any other"
  84. 1160 [153]"person in history.
  85. 1170 print"[208]ress a key to continue"
  86. 1180 geta$:ifa$=""then1180
  87. 1200 print"[147][194]ut this morning, tragedy struck in the"
  88. 1210 print"most unlikely manner. [193]s you approached"
  89. 1220 print"[206]umber 221b [194]aker [211]treet, you were
  90. 1230 [153]"stunned by a commotion whose likes you
  91. 1240 print"had never seen there. [208]eople, horses,
  92. 1250 [153]"carriages, and police were all":[153]"scurrying frightfully about."
  93. 1260 [153]"  (NULL)ou fought your way through the"
  94. 1270 [153]"throng and at last spotted str$r. (NULL)atson,"
  95. 1280 [153]"who was speaking heatedly with a young"
  96. 1290 [153]"(NULL)ieutenant from the (NULL)cotland (NULL)ard."
  97. 1300 [153]"(NULL)hen the str$octor saw you, he waved a"
  98. 1310 [153]"disgusted hand at the confused officer"
  99. 1320 [153]"(from whom he wasclosegetting little"
  100. 1330 [153]"satisfaction) and ran to you."
  101. 1340 :
  102. 1350 [153]
  103. 1360 [153]"'(NULL)hank heavens it's you, (NULL)oby. (NULL)he most"
  104. 1370 [153]"awful thing has happened. right$t's left$olmes -"
  105. 1380 [153]"he's been stolen, er, ah, kidnapped.
  106. 1390 print"[217]es, that's it - kidnapped!'
  107. 1400 [153]"(NULL)ress a key to continue"
  108. 1410 [161]a$:[139]a$[178]""[167]1410
  109. 1420 [153]"load'(NULL)oby, you must find him. (NULL)he only
  110. 1430 print"clue we have is this shoe. [201]'m sure
  111. 1440 [153]"left$olmes could make a lot more of it than"
  112. 1450 [153]"right$ have. (NULL)ou see, it has a peculiar type"
  113. 1460 [153]"of mud caked around the sole. right$'m sure"
  114. 1470 [153]"its owner has spent considerable time"
  115. 1480 [153]"in the sewers recently. right$'m afraid"
  116. 1490 [153]"that's all right$ can make out in my present"
  117. 1500 [153]"state of mind. (NULL)oby, we must find him -"
  118. 1510 [153]"and quickly. right$ have reason to believe"
  119. 1520 [153]"he may have been drugged. (NULL)he police"
  120. 1525 [153]"will be of no help - right$'m afraid you're"
  121. 1530 [153]"on your own. (NULL)lease, (NULL)oby - find":[153]"left$olmes!'"
  122. 1550 [153]"(NULL)ress a key to continue"
  123. 1560 [161]a$:[139]a$[178]""[167]1560
  124. 1570 [153]"loadatns you look around, you see:
  125. 1580 print"[193] perplexed [215]atson, holding a shoe;"
  126. 1590 print"[193] hansom cab waiting patiently;
  127. 1610 [153]"atn clock showing the time as 10 atn(NULL);
  128. 1620 print"[193] pound note in [215]atson's pocket;
  129. 1630 [153]"(NULL)he landlady holding left$olmes' pipe;
  130. 1640 print"[193] policeman scratching his head.
  131. 1650 [153]"(NULL)hat will you do, (NULL)oby? (NULL)our pockets
  132. 1660 print"are empty and time is running out.":goto20000
  133. 3000 onfwgoto6900,3000,3100,6900,3200,3250,6900,3350,6900,3450
  134. 3010 onfw-10 goto6900,6900,6900,6900,6900,6900,3800
  135. 3100 ifb$="butcher" then 4360
  136. 3105 ifb$="drygoods" then 4370
  137. 3110 if b$="smokeshop" then 4375
  138. 3115 if b$="sewer" then 4350
  139. 3148 goto 6927
  140. 3200 ifb$="butcher"then4200
  141. 3205 ifb$="smokeshop"then4200
  142. 3210 ifb$="drygoods"then4200
  143. 3248 goto6900
  144. 3250 ifb$="hammer"thenit=3:goto4250
  145. 3255 ifb$="knife"thenit=3:goto4250
  146. 3260 ifb$="matches"thenit=2:goto4250
  147. 3265 ifb$="meat"thenit=1:goto4250
  148. 3270 ifb$="pipe"thenit=2:goto4250
  149. 3275 ifb$="rope"thenit=3:goto 4250
  150. 3280 ifb$="tobacco"thenit=2:goto 4250
  151. 3298 goto 6900
  152. 3350 ifb$="sewer"then4350
  153. 3355 ifb$="221b"then4355
  154. 3360 ifb$="butcher"then4360
  155. 3365 ifb$="hansom"then4365
  156. 3370 ifb$="drygoods"then4370
  157. 3375 ifb$="smokeshop"then4375
  158. 3380 ifb$="dungeon"then4380
  159. 3398 goto 6900
  160. 3450 ifb$="around"then4450
  161. 3498 goto 6900
  162. 3800 ifb$="221b"then 4800
  163. 3810 ifb$="sewer"then 4350
  164. 3848 goto 6900
  165. 4200 ifsh=0then6900
  166. 4201 sh=0:print"[145][207][203], you're back in the street.":goto4901
  167. 4250 ifsh<>itthen6955
  168. 4251 ifty(sw)=3 then6925
  169. 4252 ifni=4 andmy=5  then ni=3:goto 4255
  170. 4253 ifni>3 then 6910:rem ni= # of itemscarried
  171. 4254 ifmy<5 then 6915
  172. 4255 print"[145][217]ou now have ";b$;".":goto6940
  173. 4350 game=3:gosub62000:print"[217]ou're at the entrance to the sewer.
  174. 4351 [153]"atn tunnel lies directly ahead.":[137]4910
  175. 4355 [153]"on(NULL)ou can either walk (slow) or take a
  176. 4356 print"hansom cab (10 shillings)":goto4900
  177. 4360 print"[145][217]ou're in the butcher shop.":sh=1:goto 4902
  178. 4365 ifmy<10 then6915
  179. 4366 game=1:pl=0:gosub62000:print"[217]ou're in [200]olmes' flat. [215]atson is
  180. 4367 [153]"still there.":rm[178]1: my[178]my[171]10:bo[178]0:   [137] 4905
  181. 4370 [153]"on(NULL)ou're in the drygoods shop.":sh[178]3:[137] 4902
  182. 4375 [153]"on(NULL)ou